home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / util / misc / VMM_src.lha / VMM / MUI / misc_page.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-12-16  |  3.9 KB  |  128 lines
  1. #include "defs.h"
  2.  
  3. Object *MyLLabel1 (char *name)
  4.  
  5. {
  6. return (TextObject,
  7.           MUIA_Text_Contents, name,
  8.           MUIA_Text_PreParse, MUIX_L,
  9. /*          MUIA_Text_SetMax, TRUE, */
  10.           MUIA_FramePhantomHoriz, TRUE,
  11.           ButtonFrame, 
  12.         End);
  13. }
  14.  
  15. Object *MyLLabel2 (char *name)
  16.  
  17. {
  18. return (TextObject,
  19.           MUIA_Text_Contents, name,
  20.           MUIA_Text_PreParse, MUIX_L,
  21. /*          MUIA_Text_SetMax, TRUE, */
  22.           MUIA_FramePhantomHoriz, TRUE,
  23.           StringFrame, 
  24.         End);
  25. }
  26.  
  27. Object *NumberString (ULONG len)
  28.  
  29. {
  30. return (StringObject,
  31.           MUIA_String_Accept, "0123456789",
  32.           MUIA_String_MaxLen, len,
  33.           MUIA_String_Format, MUIV_String_Format_Right,
  34.           MUIA_String_Integer, 0,
  35.           StringFrame,
  36.         End);
  37. }
  38.  
  39.  
  40. Object *CreateMiscPage (void)
  41.  
  42. {
  43. GR_StatParams = VGroup,
  44.                   MUIA_Frame, MUIV_Frame_Group,
  45.                   MUIA_HelpNode, "Misc_Settings",
  46.                   MUIA_Weight, 200,
  47.                   Child, 
  48.                     HGroup,
  49.                       Child, Label1 (GetVMMString (msgZoomed)),
  50.                       Child, CM_Zoomed = CheckMark (FALSE),
  51.                     End,
  52.                   Child, VSpace (0),
  53.                   Child, Label (GetVMMString (msgPosUnzoomed)),
  54.                   Child,
  55.                     HGroup,
  56.                       Child, Label2 (GetVMMString (msgLeftEdge)),
  57.                       Child, ST_UnZLeft = NumberString (20),
  58.                       Child, HSpace (0),
  59.                       Child, Label2 (GetVMMString (msgTopEdge)),
  60.                       Child, ST_UnZTop = NumberString (20),
  61.                     End,
  62.                   Child, VSpace (0),
  63.                   Child, Label (GetVMMString (msgPosZoomed)),
  64.                   Child,
  65.                     HGroup,
  66.                       Child, Label2 (GetVMMString (msgLeftEdge)),
  67.                       Child, ST_ZLeft = NumberString (20),
  68.                       Child, HSpace (0),
  69.                       Child, Label2 (GetVMMString (msgTopEdge)),
  70.                       Child, ST_ZTop = NumberString (20),
  71.                     End,
  72.                 End;
  73.  
  74. CM_StatEnabled = CheckMark (TRUE);
  75.  
  76. DoMethod (CM_StatEnabled, MUIM_Notify, MUIA_Selected, MUIV_EveryTime,
  77.           GR_StatParams,
  78.           3,
  79.           MUIM_Set, MUIA_Disabled, MUIV_NotTriggerValue);
  80.  
  81. GR_Statistics = VGroup,
  82.                   Child, HVSpace,
  83.                   Child, 
  84.                     HGroup,
  85.                       Child, Label1 (GetVMMString (msgStatistics)),
  86.                       Child, CM_StatEnabled,
  87.                     End,
  88.                   Child, HVSpace,
  89.                   Child, GR_StatParams,
  90.                 End;
  91.  
  92. GR_Misc = ColGroup (2),
  93.             MUIA_Group_SameWidth, TRUE, 
  94.             Child, HVSpace,
  95.             Child, HVSpace,
  96.             Child, MyLLabel1 (GetVMMString (msgCacheZ2RAM)),
  97.             Child, CM_CacheZ2RAM = CheckMark (TRUE),
  98.             Child, MyLLabel1 (GetVMMString (msgPatchWB)),
  99.             Child, CM_WBPatch = CheckMark (FALSE),
  100.             Child, MyLLabel1 (GetVMMString (msgMemTracking)),
  101.             Child, CM_MemTracking = CheckMark (FALSE),
  102.             Child, MyLLabel1 (GetVMMString (msgFastROM)),
  103.             Child, CM_FastROM = CheckMark (FALSE),
  104.             Child, HVSpace,
  105.             Child, HVSpace,
  106.             Child, MyLLabel2 (GetVMMString (msgMinVMAlloc)),
  107.             Child, ST_MinVMAlloc = NumberString (10),
  108.             Child, HVSpace,
  109.             Child, HVSpace,
  110.             Child, MyLLabel2 (GetVMMString (msgEnableHotkey)),
  111.             Child, ST_EnableHotkey = String (NULL, 40),
  112.             Child, MyLLabel2 (GetVMMString (msgDisableHotkey)),
  113.             Child, ST_DisableHotkey = String (NULL, 40),
  114.           End;
  115.  
  116. return (HGroup,
  117.           Child, HCenter (GR_Statistics),
  118.           Child, HSpace (0),
  119.           Child, 
  120.             RectangleObject,
  121.               MUIA_Rectangle_VBar, TRUE,
  122.               MUIA_Weight, 0,
  123.             End,
  124.           Child, HSpace (0),
  125.           Child, GR_Misc,
  126.         End);
  127. }
  128.